Top 10k strings from Snail Logo (1983)(CP Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
8 S=V(N,N2):
4 K=W(BL,K-Y)
3 Z$(NN)>"H"
3 Z$(NN)<"A"
3 V(U+N1,N1)=N29
3 M$(N2)=Z$(NN):
2 Z(N+N1)=N0
2 Z$(NN)<"0"
2 Z$(N)<"0")
2 V(U,N1)=M:
2 U>C*N15+49
2 U=C*N15+35
2 SNAIL LOGO
2 S=W(BL,S-Y):
2 S=W(BL,S-Y)
2 R=N*N10+N1
2 PROGRAM INSTRUCTIONS
2 N2;" ON";
2 N0;"<<END":
2 N*N10+Z(N+N1):
2 K=V(N,N3):
2 K=V(N,N2):
2 F$=" "
2 B*N10+4200
2 ),N1)=N29:
2 ";V$(C);" (";C;")":
1 snail ml
1 j$=l$+k$+"@END@":
1 ZO=ZO+N16*
1 Z=(C-N1)*N10+Z(C):
1 Z(C)=Z(C)-N1
1 Z(C)=Z(C)+N1:
1 Z$=J$(F+N1
1 Z$=G$(F+N1
1 Z$(NN+N3)>"/"
1 Z$(NN+N3)=Z$(NN+N4)
1 Z$(NN+N3)="."
1 Z$(NN+N3)=","
1 Z$(NN+N3)<"*"
1 Z$(NN+N2)>"H"
1 Z$(NN+N2)<"A"
1 Z$(NN+N1)>">"
1 Z$(NN+N1)=Z$(NN)
1 Z$(NN+N1)<"<"
1 Z$(NN)>"9"
1 Z$(NN)>"6"
1 Z$(N)<"A")
1 YY=V(N,N3)*N4:
1 XX=V(N,N2)*N4:
1 WN :Snail tracks after",U$;"are shown"
1 WARD N :Steps N in current",U$;"direction"
1 W(Z,N3)=P(N3):
1 W(Z,N2)=P(N2):
1 W(Z,N1)=P(N1):
1 W(R,Q+N4)=W(R,Q):
1 W(R,Q)=W(R,Q+N4):
1 W(LB,N4)=D:
1 W(BL,S-Y)=W(BL,S-Y)-V(N,N3):
1 W(BL,S-Y)=W(BL,S-Y)+V(N,N3):
1 W(BL,S-Y)=V(N,N3):
1 W(BL,BV)=S*K*(B=44
1 W$=W$+"^":
1 W$=W$+"@"+Z$
1 V(U,N3)=P(N3)
1 V(U,N2)=Z:
1 V(U,N2)=P(N2):
1 V(U,N1)>50
1 V(U,N1)=Q*N15+36
1 V(U,N1)=N29:
1 V(U,N1)=M+200
1 V(U,N1)=M+100
1 V(N1,N1)=N29:
1 V(N,N1))(N2
1 V(N,N1))(N1):
1 V(N,N1))(N1)-N1:
1 V((Q*N15+36
1 V((C*N15+36
1 V$(N)=" "
1 TPUT :Causes element of",U$;"track to be shown"
1 T V,n :Sets variable value"
1 STEP LENGTH
1 SNAIL <
1 SITION n,n:Sets Snail position"
1 RTH :Sets direction to top";U$;"of screen"
1 RIGHT TURN COEFF
1 RF NOT EQUAL RE
1 REP LOOP IFEND
1 R=W(BL,R-Y)
1 PROCEDURE INSTRUCTIONS
1 PROCEDURE CONVERSION
1 PORT NUMBER
1 PEAT N :Instructions after it";U$;"are repeated N times"
1 OW V :Prints variable",U$;" value on screen"
1 ORTH :Sets direction as",u$;"initial for procedure"
1 ONLY 15 INSTRS IN PROCEDURES
1 OCEDURE NAME,n,n,n"
1 OCEDURE NAME"
1 NTRE :Moves track to centre";U$;"of screen"
1 NO SPACE LEFT
1 NAIL :Cancels effect of",U$;"SNAIL"
1 N=V(N,N1)-N1:
1 N6;"Zeaker ON","T";:
1 N6;"SET turn coeffs","K";" L#";ZL;" R#";ZR,
1 N6;"SET step length","S";" #";ZS,,,
1 N6;"PROCEDURE NAMES IN USE";
1 N6;"LIST procedure","K"
1 N6;" REPEAT LOOP ";
1 N6,,"SET output port","P";" #";ZP,,,
1 N5;"LIST program","L","RUN program","R ";
1 N5;"CANCELLED"
1 N5;"(R)EPLACE (I)NSERT (D)ELETE (Z)":
1 N5,"EDIT program","E","ENTER program","EPR",
1 N4;C$;" bounce","B","ZEAKER control","T","INSTRUCTIONS","I",;
1 N4;" OFF";
1 N3,N0;"NOT VALID STEP LENGTH ";
1 N3,N0;"NOT VALID PORT NUMBER ";
1 N3,N0;"NOT VALID COEFFICIENT ";
1 N2;"(P)ROC?":
1 N2;"(C)OPY?":
1 N21,N18;"<<END
1 N21,N18;" ":
1 N1;XT+XP,YT+YP:
1 N11,N15;"ONLY PART EDITED"
1 N0;Q2;" ";
1 N0,N25;" ":
1 N0,,"Zeaker+Snail ON","X";:
1 N0,,"Zeaker OFF","O";:
1 M+N2)=Z$(N1
1 M$(X)+9936
1 M$(N4)=Z$(NN+N3):
1 M$(N3)=Z$(NN+N2)
1 M$(N1)=Z$(NN+N1)
1 M$(J)=Z$(N):
1 LOUR n :Sets track colour"
1 LEFT TURN COEFF
1 LEAF STEM BLOOM BUD
1 LB=V(N,N2):
1 KE V=V/V:Divides variables"
1 KE V=V-V:Subtracts variables"
1 KE V=V+V:Adds variables"
1 KE V=V*V:Multiplies variables"
1 K=W(BL,S-Y):
1 J$=L$+W$+K$+"@END@"
1 INSTRUCTION ERROR
1 INSERTED INSTRS
1 INISH :Must be included to",U$;"end effect of REPEAT"
1 IK=V(N,N3):
1 H$(Q,N)="^"
1 H$(C)=W$+"^":
1 GHT N :Rotates direction N",U$;"degs clockwise"
1 G$=W$+"@END@":
1 FT N :Rotates direction N",U$;"degs anticlockwise"
1 FORILEBAREPRUPDOCLOURFCENOSNNSRNPODESEINCOIFMAXXSHB
1 END V>V :Ends if one variable",u$;"greater than other"
1 END V=V :Ends if variables",u$;"equal"
1 END V<V :Ends if one variable",u$;"less than other"
1 END OF RECURSION STACK
1 EDIT.....LINE NO ?.....OR 'Z'
1 EDIT.....LINE NO ?.....OR
1 EAR :Clears the screen",,,
1 DIVIDE BY ZERO
1 D=W(LB,N4)*(A$="1")+(A$="0")*N0:
1 CURRENT PROGRAM
1 CREASE V,n:Subtract value from";u$;" variable"
1 CREASE V,n:Adds value to",u$;" variable"
1 COMMAND ERR NUM IN COMMDNO SPACE REQNUM/NAME ERRNUM NO GOOD NUM/NAME REQNOT VAR NAMEPROCEDURE ??10 PROCS MAXREP LOOP ERRNUMBER ?? Q2
1 CKWARD N:Steps N opposite",U$;"current direction"
1 C$="STOP " :
1 C$="STOP "
1 C$="SET ":
1 B=V(N,N1):
1 AIL :Causes a Snail to be",U$;"shown at track ends"
1 @LE 45@IN A,1@RE 2@FO A@CE@RI 90@RF@NO^ @PR BUD,0@FO A@SN@FO 2@NS@IN A,2^ @RE 4@SN@FO 1@NS@BA 1@RI 90@RF^ @IN A,1@IF A=H@SN^
1 @CO 4@OU@PR LEAF,0@FO 2@SE H,1@RE 3@CE@PR LEAF,1@PR STEM,2@RF@CO 2@PR BLOOMX
1 @CO 4@OU@PR LEAF,0@FO 2@SE H,1@RE 3@CE@PR LEAF,1@PR STEM,2@RF@CO 2@PR BLOOM
1 ;a$;b$;c$;d$;e$
1 ;"Leave tape running"
1 280683*OBJECT MASTER1.1
1 ,Q+N4)=W(102
1 ,Q+N4)=W(101
1 ,,,;" Zeaker Micro-turtle",
1 ,,,,,,,,"
1 ,,"PR NAME instructions action the named procedure. The n values set the A/B/C values in the proc-edure (if used), in that order.To set C, some value must be given for A and B."
1 ,"ENTER procedure","P","CLEAR procedure","C","PROCEDURE names","N";,
1 +S-Y);":";K:
1 +(N3-J)*N20)
1 *050683***SPEC48*
1 *****"snail"*****
1 *(M$(N1)=">")+400
1 *(M$(N1)="=")+300
1 *(M$(N1)="<")
1 )+(S/KK)*(B=46
1 )+(S-K)*(B=47
1 )+(S+K)*(B=45
1 (Z$(N)>"9"
1 "snail "
1 "Note",," n : number ",," V : Variable name"," N : Number or Variable name",,,:
1 " ";N,V$(N),,,
1 m davies ******
1 TO CANCEL":
1 Mel Davies 1983
1 ";V$(Q);" (";Q;") ";
1 SNAIL LOGO Instructions
1 "+f$+" ("+
1 :Must be used as last",U$;"instruction",,,
1 :Snail moves after",U$;"without track shown"
1